home *** CD-ROM | disk | FTP | other *** search
/ Action Games (2008) / akcnihry1.iso / AT-Robots 2.10 / SCANTEST.AT2 < prev    next >
Encoding:
Text File  |  1999-04-27  |  436 b   |  29 lines
  1. ; Fifi's scantest robot. Try putting this up 
  2. ; against SDUCK to demonstrate the scanner.
  3.  
  4.  
  5. #msg watch the err!
  6. mov ex 0
  7. mov fx 500
  8. int i_angle
  9. in p_compass bx
  10. sub bx ax
  11. out p_steering bx
  12. del 5
  13. out p_throttle 100
  14. !still_moving
  15. cmp @8 0
  16. je !still_moving
  17. out p_throttle 0
  18. !scan_loop
  19. out p_arc 64
  20. in p_scan ax
  21. cmp ax 1600
  22. ja !not_found
  23. err @3
  24. jmp !cont
  25. !not_found
  26. err maxint
  27. !cont
  28. out p_trotate 1
  29. jmp !scan_loop